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PREFACE 


This  unit  test  plan  covers  the  work  performed  under  Air 
Force  Contract  F33615-80-C-5155  (ICAM  Project  6201).  This 
contract  is  sponsored  by  the  Materials  Laboratory,  Air  Force 
Systems  Command,  Wright-Patterson  Air  Force  Base,  Ohio.  It  was 
administered  under  the  technical  direction  of  Mr.  Gerald  C. 
Shumaker,  ICAM  Program  Manager,  Manufacturing  Technology 
Division,  through  Project  Manager,  Mr.  David  Judson.  The  Prime 
Contractor  was  Production  Resources  Consulting  of  the  General 
Electric  Company,  Schenectady,  New  York,  under  the  direction  of 
Mr.  Alan  Rubenstein.  The  General  Electric  Project  Manager  was 
Mr.  Myron  Hurlbut  of  Industrial  Automation  Systems  Department, 
Albany,  New  York. 

Certain  work  aimed  at  improving  Test  Bed  Technology  has 
been  performed  by  other  contracts  with  Project  6201  performing 
integrating  functions.  This  work  consisted  of  enhancements  to 
Test  Bed  software  and  establishment  and  operation  of  Test  Bed 
hardware  and  communications  for  developers  and  other  users. 
Documentation  relating  to  the  Test  Bed  from  all  of  these 
contractors  and  projects  have  been  integrated  under  Project  6201 
for  publication  and  treatment  as  an  integrated  set  of  documents. 
The  particular  contributors  to  each  document  are  noted  on  the 
Report  Documentation  Page  (DD1473).  A  listing  and  description 
of  the  entire  project  documentation  system  and  how  they  are 
related  is  contained  in  document  FTR620100001 ,  Project  Overview. 

The  subcontractors  and  their  contributing  activities  were 
as  follows: 


TASK  4,2 

Subcontractors  Role 

Boeing  Military  Aircraft  Reviewer. 

Company  ( BMAC ) 

D.  Appleton  Company  Responsible  for  IDEF  support, 

( DACOM )  state-of-the-art  literature 

search . 

Responsible  for  factory  view 
function  and  information 
models . 


General  Dynamics/ 
Ft.  Worth 


UTP620 144502 
1  November  1985 


Subcontractors  Role 

Illinois  Institute  of  Responsible  for  factory  view 

Technology  function  research  (IITRI) 

and  information  models  of 
small  and  medium-size  business. 

North  American  Rockwell  Reviewer. 

Northrop  Corporation  Responsible  for  factory  view 

function  and  information 
models . 

Pritsk^r  and  Associates  Responsible  for  IDEF2  support. 

SofTech  Responsible  for  IDEFO  support. 


TASKS  4.3  -  4.9  (TEST  BED) 

Subcontractors  Role 

Boeing  Military  Aircraft  Responsible  for  consultation  on 

Company  ( BMAC )  applications  of  the  technology 

and  on  IBM  computer  technology. 

Assisted  in  the  areas  of 
communications  systems,  system 
design  and  integration 
methodology,  and  design  of  the 
Network  Transaction  Manager. 

Control  Data  Corporation  Responsible  for  the  Common  Data 
(CDC)  Model  ( CDM )  implementation  and 

part  of  the  CDM  design  (shared 
with  DACOM) . 

D.  Appleton  Company  Responsible  for  the  overall  CDM 

(DACOM)  Subsystem  design  integration 

and  test  plan,  as  well  as  part 
of  the  design  of  the  CDM 
(shared  with  CDC).  DACOM  also 
developed  the  Integration 
Methodology  and  did  the  schema 
mappings  for  the  Application 
Subsystems . 


Computer  Technology 
Associates  (CTA) 


i  v 
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Subcontractors 


Role 


Digital  Equipment 
Corporation  (DEC) 


McDonnell  Douglas 
Automation  Company 
(McAuto) 


Consulting  and  support  of  the 
performance  testing  and  on  DEC 
software  and  computer  systems 
operation . 

Responsible  for  the  support  and 
enhancements  to  the  Network 
Transaction  Manager  Subsystem 
during  1984/1985  period. 


On-Line  Software 
International  (OS I) 


Responsible  for  programming  the 
Communications  Subsystem  on  the 
IBM  and  for  consulting  on  the 
IBM. 


Rath  and  Strong  Systems 
Products  (RSSP)  (In  1985 
because  McCormack  8  Dodge) 


Sof Tech ,  Inc . 


Software  Performance 
Engineering  (SPE) 


Structural  Dynamics 
Research  Corporation 
(SDRC) 


Responsible  for  assistance  in 
the  implementation  aund  use  of 
the  MRP  II  package  (PIOS)  that 
they  supplied. 

Responsible  for  the  design  and 
implementation  of  the  Network 
Transaction  Manager  (NTM)  in 
1981/1984  period. 

Responsible  for  directing  the 
work  on  performance  evaluation 
and  analysis. 

Responsible  for  tne  User 
Interface  and  Virtual  Terminal 
Interface  Subsystems. 


Other  prime  contractors  under  other  projects  who  have 
contributed  to  Test  Bed  Technology,  their  contributing 
activities  and  responsible  projects  are  as  follows: 


Contractors 


ICAM  Project  Contributing  Activities 


Boeing  Military  1701, 
Aircraft  Company  2202 
( BMAC ) 


2201 ,  Enhancements  for  IBM 
node  use.  Technology 
Transfer  to  Integrated 
Sheet  Metal  Center 
( I SMC) . 
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Contractors 

ICAM  Pro.iect 

Contributing  Activities 

Control  Data 
Corporation  (CDC) 

1502,  1701 

IISS  enhancements  to 
Common  Data  Model 
Processor  (CDMP). 

D.  Appleton  Company 
(DACOM) 

1502 

IISS  enhancements  to 
Integration  Methodology 

General  Electric 

1502 

Operation  of  the  Test 
Bed  and  communications 
equipment . 

Hughes  Aircraft 

Company  ( HAC ) 

1701 

Test  Bed  enhancements. 

Structural  Dynamics 
Research  Corporation 
( SDRC ) 

1502,  1701, 
1703 

IISS  enhancements  to 
User  Interface/Virtual 
Terminal  Interface 
COI/VTI) . 

Systran 


1502 


Test  Bed  enhancements . 
Operation  of  Test  Bed. 
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SECTION  1 
GENERAL 


1 . 1  Purpose 

This  unit  test  plan  establishes  the  methodology  and 
procedures  used  to  adequately  test  the  capabilities  of  the 
computer  program  identified  as  the  Rapid  Application  Generator 
known  in  this  document  as  RAP.  The  RAP  is  a  configuration 
item  of  the  Integrated  Information  Support  System  (IISS)  User 
Interface  (UI). 

1 . 2  Project  References 

[1]  I CAM  Documentat i on  Standards .  15  September  1983, 
IDS150120000C. 

[2]  General  Electric  Co.,  System  Design  Specification . 

7  February  1983. 

[3]  Structural  Dynamics  Research  Corporation,  Application 
Generator  Development  Specification,  DS  620144502  ,  1 
November  1985 . 

[4]  Structural  Dynamics  Research  Corporation,  Report 
Writer  Pnit  Test  Plan,  UTP620144501  ,  1  November 
1985. 

[6]  Structural  Dynamics  Research  Corporation,  Rapid 
Appl i cat  ion  Generator  Unit  Test  Plan .  UTP621044502  , 

1  November  1985 . 

[7]  Structural  Dynamics  Research  Corporation,  Text  Editor 
Unit  Test  Plan,  UTP620144600  ,  1  November  1985. 

[8]  Structural  Dynamics  Research  Corporation,  Form 
Processor  Unit  Test  Plan ,  UTP620144200  ,  1  November 
1985. 

[9]  Structural  Dynamics  Research  Corporation,  Appl i cat ion 
Interface  Unit  Test  Plan ,  UTP62 1044700  ,  1  November 
1985. 

[10]  Structural  Dynamics  Research  Corporation,  Forms 
Driven  Form  Editor  Unit  Test  Plan,  UTP620144401  , 

1  November  1985. 
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[11]  Structural  Dynamics  Research  Corporation,  User 
Interface  Services  Unit  Test  Plan ,  UTP620144100  , 

1  November  1985. 

[12]  Structural  Dynamics  Research  Corporation,  Virtual 
Terminal  Uni t  Test  Plan ,  UTP620144300 ,  1  November 
1985. 

1 . 3  Terms  and  Abbreviations 

App 1 icat i on  Def in i t i on  Language:  an  extension  of  the  Forms 
Definition  Language  that  includes  retrieval  of  database 
information  and  conditional  actions.  It  is  used  to  define 
interactive  application  programs. 

Appl icat ion  Generator :  (AG),  subset  of  the  1ISS  User 
Interface  that  consists  of  software  modules  that  generate  IISS 
application  code  and  associated  form  definitions  based  on  a 
language  input.  The  part  of  the  AG  that  generates  report 
programs  is  called  the  Report  Writer.  The  part  of  the  AG  that 
generates  interactive  applications  is  called  the  Rapid 
Application  Generator. 

Appl icat ion  Interface :  (AI),  subset  of  the  IISS  User 
Interface  that  consists  of  the  callable  routines  that  are  linked 
with  applications  that  use  the  Form  Processor  or  Virtual 
Terminal.  The  AI  enables  applications  to  be  hosted  on  computers 
other  than  the  host  of  the  User  Interface. 

Appl icat ion  Process :  (AP),  a  cohesive  unit  of  software  that 
can  be  initiated  as  a  unit  to  perform  some  function  or 
functions . 

Attribute :  field  characteristic  such  as  blinking, 
highlighted,  black,  etc.  and  various  other  combinations . 
Background  attributes  are  defined  for  forms  or  windows  only. 
Foreground  attributes  are  defined  for  items.  Attributes  may  be 
permanent,  i.e.,  they  remain  the  same  unless  changed  by  the 
application  program,  or  they  may  be  temporary,  i.e.,  they  remain 
in  effect  until  the  window  is  redisplayed. 

Common  Data  Model :  (CDM),  IISS  subsystem  that  describes 
common  data  application  process  formats,  form  definitions,  etc. 
of  the  IISS  and  includes  conceptual  schema,  external  schemas, 
internal  schemas,  and  schema  transformation  operators. 
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Co—un i cat l on  Services  :  allows  on  host  interprocess 
communication  and  inter-host  communication  between  the  various 
Test  Bed  subsystems . 

Communi cat i on  Subsystem :  (COMM),  IISS  subsystem  that 
provides  communication  services  to  the  Test  Bed  and  subsystems. 

Computer  Program  Conf igurat i on  Item :  (CPCI),  an  aggregation 
of  computer  programs  or  any  of  their  discrete  portions,  which 
satisfies  an  end-use  function. 

Conceptual  Schema :  ( CS ) ,  the  standard  definition  used  for 
all  data  in  the  CDM .  It  is  based  on  IDEF1  information 
mode 1 1 i ng . 

Cursor  Position:  the  position  of  the  cursor  after  any 
command  is  issued. 

Device  Drivers :  (DD),  software  modules  written  to  handle 

I/O  for  a  specific  kind  of  terminal.  The  modules  map  terminal 
specific  commands  and  data  to  a  neutral  format.  Device  Drivers 
are  part  of  the  UI  Virtual  Terminal. 

Display  List:  is  similar  to  the  open  list,  except  that  it 
contains  only  those  forms  that  have  been  added  to  the  screen  and 
are  currently  displayed  on  the  screen. 

External  Schema :  (ES),  an  application's  view  of  the  CDM's 
conceptual  schema. 

Field :  two-dimensional  space  on  a  terminal  screen. 

Field  Pointer :  indicates  the  ITEM  which  contains  the 
current  cursor  position. 

Form:  structured  view  which  may  be  imposed  on  windows  or 
other  forms.  A  form  is  composed  of  fields.  These  fields  may  be 
defined  as  forms,  items,  and  windows. 

Form  Def ini tion .  (FD),  forms  definition  language  after 
compilation.  It  is  read  at  runtime  by  the  Form  Processor. 

Forms  Def ini t i on  Language :  (FDL),  the  language  in  which 
electronic  forms  are  defined. 
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) 

I 

!  Forms  Driven  Form  Editor :  ( FDFE) ,  subset  of  the  FE  which 

!  consists  of  a  forms  driven  application  used  to  create  Form 

|  Definition  files  interactively. 

j  Form  Editor :  (FE),  subset  of  the  IISS  User  Interface  that 

|  is  used  to  create  definitions  of  forms.  The  FE  consists  of  the 

1  Forms  Driven  Form  Editor  and  the  Forms  Language  Compiler. 

* 

Form  Hierarchy :  a  graphic  representation  of  the  way  in 
which  forms,  items  and  windows  are  related  to  their  parent  form. 

I 

!  Forms  Language  Compi ler :  (FLAN),  subset  of  the  FE  that 

!  consists  of  a  batch  process  that  accepts  a  series  of  forms 

|  definition  language  statements  and  produces  form  definition 

|  files  as  output. 

'  Form  Processor :  (FP).  subset  of  the  IISS  User  Interface 

that  consists  of  a  set  of  callable  execution  time  routines 
available  to  an  application  program  for  form  processing. 

Form  processor  text  editor:  (fpte),  subset  of  the  form 
Processor  that  consists  of  software  modules  that  provide  text 
editing  capabilities  to  all  users  of  applications  that  use  the 
|  Form  Processor. 

!  IISS  Function  Screen :  the  first  screen  that  is  displayed 

I  after  logon.  It  allows  the  user  to  specify  the  function  he 

I  wants  to  access  and  the  device  type  and  device  name  on  which  he 

r  is  working. 

i 

)  Integrated  Informat i on  Support  System:  (IISS),  a  test 

;  computing  environment  used  to  investigate,  demonstrate  and  test 

j  the  concepts  of  information  management  and  information 

!  integration  in  the  context  of  Aerospace  Manufacturing.  The  IISS 

1  addresses  the  problems  of  integration  of  data  resident  on 

!  heterogeneous  data  bases  supported  by  heterogeneous  computers 

interconnected  via  a  Local  Area  Network. 

Item:  non-decomposable  area  of  a  form  in  which  hard-coded 
descriptive  text  may  be  placed  and  the  only  defined  areas  where 
user  data  may  be  input/output. 

Logical  Device :  a  conceptual  device  which  to  an  application 
is  indistinguishable  from  a  physical  device  and  is  then  mapped 
to  part  or  all  of  a  physical  device. 
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Message :  descriptive  text  which  may  be  returned  in  the 
standard  message  line  on  the  terminal  screen.  They  are  used  to 
warn  of  errors  or  provide  other  user  information. 

Message  Line :  a  line  on  the  terminal  screen  that  is  used  to 
display  messages. 

Network  Transaction  Manager :  (NTM),  I1SS  subsystem  that 
performs  the  coordination,  communication  and  housekeeping 
functions  required  to  integrate  the  Application  Processes  and 
System  Services  resident  on  the  various  hosts  into  a  cohesive 
system . 

Neutral  Data  Man i pul at i on  Language :  ( NDML ) .  the  command 
language  by  which  the  CDM  is  accessed  for  the  purpose  of 
extracting,  deleting,  adding,  or  modifying  data. 

Open  List •  a  list  of  all  the  forms  that  have  been  and  are 
currently  open  for  an  application  process. 

Operating  System:  (OS),  software  supplied  with  a  computer 
which  allows  it  to  supervise  its  own  operations  and  manage 
access  to  hardware  facilities  such  as  memory  and  peripherals. 

Page :  instance  of  forms  in  windows  that  are  created 
whenever  a  form  is  added  to  a  window. 

Paging  and  Scrol 1 ing :  a  method  which  allows  a  form  to 
contain  more  data  than  can  be  displayed  with  provisions  for 
viewing  any  portion  of  the  data  buffer. 

Physical  Device :  a  hardware  terminal. 

Presentation  Schema :  (PS),  may  be  equivalent  to  a  form.  It 
is  the  view  presented  to  the  user  of  the  application. 

Qual if xed  Name :  the  name  of  a  form,  item  or  window  preceded 
by  the  hierarchy  path  so  that  it  is  uniquely  identified. 

Rapid  Application  Generator :  (RAP),  part  of  the  Application 
Generator  that  generates  source  code  for  interactive  programs 
based  on  a  language  input. 

Subform:  a  form  that  is  used  within  another  form. 
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Text  Editor :  (TE).  subset  of  the  IISS  User  Interface  that 
consists  of  a  file  editor  that  is  based  on  the  text  editing 
functions  built  into  the  Form  Processor. 

Pser  Data:  data  which  is  either  input  by  the  user  or 
output  by  the  application  programs  to  items. 

User  Interface :  (UI).  IISS  subsystem  that  controls  the 
user's  terminal  and  interfaces  with  the  rest  of  the  system.  The 
UI  consists  of  two  major  subsystems:  the  User  Interface 
Development  System  (UIDS)  and  the  User  Interface  Management 
System  (UIMS). 

User  Interface  Development  System :  (UIDS),  collection  of 
IISS  User  Interface  subsystems  that  are  used  by  applications 
programmers  as  they  develop  IISS  applications.  The  UIDS 
includes  the  Form  Editor  and  the  Application  Generator. 

Pser  Interface  Management  System:  (UIMS),  the  runtime  UI . 

It  consists  of  the  Form  Processor,  Virtual  Terminal.  Application 
Interface,  the  User  Interface  Services  and  the  Text  Editor. 

User  Interface  Monitor :  (UIM),  part  of  the  Form  Processor 
that  handles  messaging  between  the  NTM  and  the  UI .  It  also 
provides  authorization  checks  and  initiates  applications. 

Pser  Interface  Services :  (UIS),  subset  of  the  IISS  User 
Interface  that  consists  of  a  package  of  routines  that  aid  users 
in  controlling  their  environment.  It  includes  message 
management,  change  password,  and  application  definition 
services . 

User  Interface/Virtual  Terminal  Interface:  (UI/VTI), 
another  name  for  the  User  Interface. 

Virtual  Terminal :  (VT),  subset  of  the  IISS  User  Interface 
that  performs  the  interfacing  between  different  terminals  and 
the  UI .  This  is  done  by  defining  a  specific  set  of  terminal 
features  and  protocols  which  must  be  supported  by  the  UI 
software  which  constitutes  the  virtual  terminal  definition. 
Specific  terminals  are  then  mapped  against  the  virtual  terminal 
software  by  specific  software  modules  written  for  each  type  of 
real  terminal  supported. 
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Virtual  Terminal  Interface :  (VTI),  the  callable  interface 
to  the  VT. 

Window:  dynamic  area  of  a  terminal  screen  on  which 
predefined  forms  may  be  placed  at  run  time. 

Window  Manager :  a  facility  which  allows  the  following  to  be 
manipulated:  size  and  location  of  windows,  the  device  on  which 
an  application  is  running,  the  position  of  a  form  within  a 
window.  It  is  part  of  the  Form  Processor. 
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SECTION  2 

DEVELOPMENT  ACTIVITY 


2-1  Statement  of  Pretest  Activity 

During  system  development,  the  Rapid  Application  Generator 
was  tested  progressively.  Functionality  was  incrementally 
tested  and  as  errors  were  discovered  by  this  testing,  the 
software  was  corrected. 

This  testing  was  conducted  by  the  program  developers  in  a 
manual  mode.  Any  errors  were  noted  by  the  developers  and 
corrections  to  the  program  were  then  made  after  a  testing 
session . 

2.2  Pretest  Activity  Results 

Testing  of  the  RAP  revealed  numerous  flaws  which  were  then 
corrected  and  retesting  proved  successful.  Testing  included 
exceptional  conditions  and  error  conditions  for  the  language. 
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SECTION  5 

SYSTEM  DESCRIPTION 


3- 1  System  Description 

The  Rapid  Application  Generator  is  used  to  translate 
application  definitions  written  with  any  text  editor  into 
programs  that  access  data  bases  via  the  CDM  and  manipulate  the 
extracted  data  in  a  way  determined  interactively  by  the  user. 

The  Application  Definition  Language  in  which  the 
application  definitions  are  expressed  includes  the  Forms 
Definition  Language  and  other  statement  types.  The  syntax  of 
the  Application  Definition  Language  accepted  as  input  to  FLAN  is 
modelled  after  the  Forms  Definition  Language  and  the  Neutral 
Data  Manipulation  Language . 

The  application  definition  is  input  to  the  RAP  which 
accesses  metadata  in  the  CDM  to  determine  the  schema  definitions 
of  the  referenced  table  field  values.  The  results  are  a 
generated  C  file  and  Cobol  file  and  separate  binary  form  files 
for  each  form  definition  within  the  application.  The  Cobol  code 
output  by  the  RAP  is  constrained  to  be  compatible  with  statement 
forms  expected  by  the  CDM  precompiler.  The  C  file  contains  the 
control  logic  of  the  application  as  well  as  the  interface  to  the 
Forms  Processor  software.  This  file  calls  the  Cobol  procedure 
which  accesses  the  data  in  the  CDM. 

When  the  Cobol  file  is  precompiled  to  translate  the  input 
SELECT  statements  to  database  calls,  several  procedures  are 
generated  each  of  which  must  be  compiled.  In  the  simplest  case, 
two  of  the  generated  Cobol  procedures  comprise  a  separate 
process;  the  other  two  after  compilation  become  linked  into  the 
application  program. 

The  generated  application  communicates  via  the  NTM  with  the 
generated  request  process  that  in  turn  accesses  the  CDM.  The 
course  of  this  access  is  determined  by  the  user's  Interaction 
with  the  application  program. 

The  interface  block  diagram  for  the  Rapid  Application 
Generator  is  shown  in  Figure  3-1. 
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3.2  Testing  Schedule 

The  execution  of  the  Rapid  Application  Generator  is 
dependent  upon  the  CDM  and  NTM  subsystems  of  IISS  and  testing  of 
the  RAP  must  be  done  only  after  the  CDM  and  NTM  have  themselves 
been  successfully  tested.  Since  COBOL  code  generated  by  the  RAP 
must  be  precompiled,  the  precompiler  must  also  be  tested  prior 
to  testing  of  the  RAP.  Finally  within  the  UI  subsystem,  the  RAP 
uses  the  Forms  Processor  and  Flan  and  therefore  must  be  tested 
only  after  their  successful  tests. 

3 . 3  First  Location  Testing 

These  tests  of  the  RAP  require  the  following: 

Equipment:  Air  Force  VAX,  terminals  supported  by  the 
Virtual  Terminal  as  listed  in  the  UI  Terminal 
Operator  Guide. 

Support  Software:  the  Integrated  Information  Support 
System.  Oracle  database  management  system,  C  compiler, 
and  Cobol  compiler. 

Personnel:  One  integrator  familiar  with  the  IISS. 

Training:  The  Rapid  Application  Generator  User  Manual 
has  been  provided  with  the  current  release. 

Deliverables:  The  Rapid  Application  Generator  subsystem 
of  the  IISS  UI/VTI . 

Test  Materials:  This  test  can  be  performed  using  the 
supplied  script  file  as  outlined  in  this  test  plan. 

Security  considerations:  None. 

3 . 4  Subsequent  Location  Testing 

The  requirements  as  listed  in  the  previous  section  must  be 
met.  In  subsequent  tests  it  will  not  be  necessary  to  update  the 
UI  and  NTM  databases  if  the  sane  application  names  are  used. 

This  Unit  Test  Plan  was  written  for  IISS  release  2.0  and  may 
become  obsolete  for  future  releases. 
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SECTION  4 

SPECIFICATIONS  AND  EVALUATIONS 


4 . 1  Test  Specification 

The  following  functional  areas  are  demonstrated  by  the 
outlined  tests: 


Test  Activity 

Functional 

Requirements  lABCDEFGH  I  JKLMN 


Switching  Between  Functions 
Change  of  Field  Value 
Overflow  of  Form 
Occurrence  of  Field  Value 
Nonoccurrence  of  Field  Value 
Function  Key  Selection 
Menu  Picking 
Cursor  Location 
Database  Delete  Operation 
Database  Insert  Operation 
Database  Modify  Operation 
Database  Select  Operation 
Record  Data  Display 
Chart  Data  Display 
Icon  Selection 
Stretchy  Lines 
Security  and  Access  Control 
Present  Form  Action 
Present  Conditional  Form 
Set  Field  Value  Action 
Help  String/Help  Form  Action 
Exit  Action 


I  X  X  X  X 

I 

I 

IX  XX 

I 

I  X  X  X  X 

I 

I 

I  not  implemented 
l not  implemented 
i not  implemented 
t 
l 

I  not  implemented 
I  not  implemented 
I  not  implemented 


X 

X 

X 

X  X  X  X 
in  version  2.0 
in  version  2.0 
in  version  2.0 
X 
X 

in  version  2.0 
in  version  2.0 
in  version  2.0 


I  X  X  X  X  X 
I  X 

IX  XX 

IX 

I  X 


A  -  entry  of  Y  in  Newuser  item  of  top  level  form  (Figs  D-1,2) 
B  -  selection  of  <Delete>  key  on  top  level  form  (Fig  D-3) 

C  -  selection  of  < Insert >  key  on  top  level  form  (Fig  D-4) 

D  -  selection  of  <Modify>  key  on  top  level  form  (Fig  D-5) 

E  -  selection  of  <Query>  key  on  top  level  form  (Fig  D-6) 

F  -  entry  of  Y  in  Verify  item  of  delete  form  (Fig  D-7) 

G  -  entry  of  N  in  Verify  item  of  delete  form  (Fig  D-8) 
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H  -  entry  of  Y  in  Options  item  of  insert  form  (Fig  D-9) 

I  -  entry  of  X  in  Rpt45  item  of  query  form  (Fig  D-10) 

J  -  selection  of  <Return>  key  on  delete  form  (Fig  D-l) 

K  -  selection  of  <Return>  key  on  insert  form  (Fig  D-l) 

L  -  selection  of  < Return >  key  on  modify  form  (Fig  D-l) 

M  -  selection  of  <Return>  key  on  query  form  (Fig  D-l) 

N  -  selection  of  <Quit>  key 

The  preceding  chart  and  the  file  in  Appendix  A  show  the 
direct  correspondence  between  the  test  and  the  functional 
requirements  given  above. 

4 . 2  Testing  Methods  and  Constraints 

The  required  input  is  stated  for  each  test.  This  testing 
tests  the  normal  mode  of  operation  of  these  functions  and  does 
not  completely  exercise  all  the  error  combinations  that  a  user 
of  the  RAP  might  create  by  faulty  entry  of  field  information. 
These  tests  have  been  done,  however,  through  the  normal  testing 
done  by  the  developer  of  these  functions.  No  additional 
constraints  are  placed  on  this  unit  test  besides  those  listed  in 
Section  3.3  of  this  document. 

4 . 3  Test  Progression 

The  progression  of  testing  of  the  RAP  is  fully  outlined  in 
Section  5.3  of  this  unit  test  plan.  This  progression  should  be 
followed  exactly  to  insure  the  successful  testing  of  this  IISS 
configuration  item. 

4.4  Test  Evaluation 


The  complete  Rapid  Application  Generator  test  consists  of 
many  stages  each  having  its  associated  output.  The  first  stage 
is  the  input  and  processing  of  the  application  definition  by  the 
generator.  The  outputs  are  the  generated  C  and  COBOL  files 
which  are  listed  in  Appendix  B  and  the  binary  form  files  named 
in  Appendix  C.  The  code  created  during  the  test  should  be  the 
same  as  that  appearing  in  Appendix  B.  The  test  should  also 
create  all  of  the  binary  form  files  named  in  Appendix  C. 

The  second  stage  is  the  precompilation  of  the  COBOL  file. 
This  should  successfully  produce  four  COBOL  procedures.  The 
names  of  these  procedures  and  the  names  of  the  files  containing 
them  are  constructed  at  generation  time.  The  files'  names  as 
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well  as  the  success  or  failure  of  the  precompilation  are 
reported  to  the  test  evaluator  in  another  file  named  according 
to  his  choice.  The  procedure  names  must  be  found  by  looking 
within  the  procedures  themselves. 

The  third  stage  is  the  compilation  and  linking  of  the  code 
which  has  been  created  in  stages  one  and  two.  The  respective 
compilers  and  linker  will  report  the  success  or  failure  of  the 
steps  comprising  this  stage  of  the  test. 

The  fourth  and  final  stage  of  the  test  is  the  execution  of 
the  generated  application.  The  success  of  this  stage  will 
depend  upon  the  successful  operation  of  the  NTM,  the  CDM ,  and 
the  Form  Processor.  This  stage  is  automated  by  the  use  of  a 
script  file  supplied  with  the  current  release.  It  is  named 
TESTAP.SCP  and  is  under  IISS  Configuration  Management.  Also 
supplied  is  the  output  created  by  running  this  script  file. 

This  appears  under  the  name  of  TESTAP.SAV  under  configuration 
management . 

This  output  may  be  compared  with  that  produced  when  the 
steps  for  testing  given  in  Section  5.3  are  followed.  This  stage 
of  the  test  will  be  considered  successful  if  this  comparison 
reveals  no  differences  other  than  differences  of  dates  and  times 
and  if  the  screens  output  to  the  terminal  are  the  same  (apart 
from  dates  and  times)  as  those  appearing  in  Appendix  D.  (Note: 
the  data  in  the  RPT45  query  may  not  be  exactly  the  same  since 
the  contents  of  the  CDM  may  change  between  tests;  however,  the 
format  of  the  screens  should  be  the  same.) 


4-3 


WWISHfVPWmFVJIFV  AJi  W^uotwxit mviiinu "irwriirwTwinunnni 


UTP620144502 
1  November  1985 


SECTION  5 
TEST  PROCEDURES 


5 . 1  Test  Description 

A  general  description  of  this  unit  test  was  provided  in 
Section  3. 

5.2  Test  Control 


As  outlined,  this  unit  test  is  a  semi automated  test  which 
may  be  done  by  anyone.  Once  startup  of  the  NTM  has  been 
initiated,  no  further  operator  intervention  is  necessary  for 
that  terminal  and  process.  The  remaining  steps  in  stages  one. 
two.  and  three  as  described  in  Section  4.4  above  are  largely 
manual.  Once  stage  4  has  been  initiated,  the  execution  of  the 
test  is  automatically  controlled  by  the  script  file.  The 
comparison  of  the  results  of  stage  4  is  manual . 

5.3  Test  Procedures 


To  run  the  unit  test  plan  on  a  VAX.  one  must  be  logged  on 
to  an  I ISS  account.  The  NTM  must  be  up  and  running  and  the  UI 
group  logical  names  IISSFLIB,  IISSULIB  and  IISSMLIB  must  be  set 
properly.  IISSFLIB  points  to  the  directory  containing  form 
definitions  (FD  files).  IISSULIB  points  to  the  NTM  environment 
directory  since  the  Application  Generator  writes  the  FD  files 
out  to  the  directory  and  in  subsequent  running  of  the 
application,  these  FD  files  are  used.  IISSMLIB  points  to  the 
directory  containing  error  messages  (MSG  files).  The  steps 
involved  in  the  RAP  test  are  outlined  in  detail  below. 

Steps  for  Executing  the  Rapid  Application  Generator. 

Below  is  am  example  of  how  the  Rapid  Application  Generator 
may  be  invoked  in  the  VAX/VMS  environment.  This  exajnple 
requires  the  use  of  two  terminals.  In  normal  usage  of  the  RAP 
if  the  NTM  is  already  running,  only  one  terminal  is  needed.  The 
steps  are  numbered  sequentially  and  those  that  are  executed  on 
the  first  terminal  are  indicated  here  with  am  ‘A”,  those  on  the 
second  terminal  are  latbeled  with  a  "B" .  The  following 
convention  is  used  to  document  the  procedure. 
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•  Text  in  angle  brackets  is  to  be  replaced  with 
appropriate  information  by  the  user. 

•  Single  upper  case  words  enclosed  in  angle  brackets 
represent  terminal  keys  (e.g.  <ENTER>). 

•  Text  in  upper  case  is  to  be  entered  as  shown. 


Stage  1  - 

1- A  Logon  on  terminal  A 

2- A  $  SET  DEF  < to  directory  containing  your  NTM  environment > 

3- A  $  glISS  This  brings  up  the  NTM 

4- B  Logon  on  terminal  B 

5- B  $  SET  DEF  < to  directory  containing  your  NTM  environment- 

6- B  S  VT100  This  starts  up  the  VT100  device 

driver.  If  the  User  Interface 
system  has  been  installed  at  your 
site  with  a  different  device  driver, 
then  this  step  is  amended  as  i^ 
appropriate . 

7- B  Fill  in  the  items  on  the  IISS 

logon  screen  as  follows: 

Username:  <MORENC> 

Pas  sword :  <  STANLEY  > 

Role  :  <  MANAGER  > 

Press  < ENTER- 

8- B  Fill  in  the  function  item  on  the 

function  screen  as  follows: 

Function:  SDAPPGENER 

Press  < ENTER- 

9- B  Fill  in  the  field  on  the 

Rapid  Application  Generator  screen 
as  follows,  where  [appdir]  is  the 
directory  where  testap.fdl  resides: 
Application  Name:  [appdir]testap.fdl 

This  compiles  the  application 
definition,  creates  the  FD 
files,  and  produces  both  the  C 
code  (testapC.C)  and  the  COBOL 
code  ( tes tapX . PRC ) . 
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Press  <QUIT>  Returns  you  to  the  operating  system. 


Stage  2  - 

10-B  $  @[NDML_dir]NDML  This  invokes  the  NDML  precompiler 

on  the  test  bed  and  produces  as 
output  four  or  more  COBOL  files 
named  Xxxxx . TMP : 

•  database  application 

•  one  or  more  RP-SUB  process 
files 

•  one  or  more  CS-ES 

( conceptualtoexternalschema 
)  subroutines 

•  RP-Main  process  name 

Inside  these  files  are  the  Yxxxx 
procedure  names . 

This  step  requires  an  input  file 
containing  precompiler  directives. 
Please  see  the  precompiler 
documentation  for  the  format  of  this 
file. 


Stage  3  - 

11- B  t  @ [ NDMLd i r ] COMPANS  « one  of  the  Yxxxx  files > 

Repeat  this  step  with  each  of  the 
Xxxxx  files  that  were  generated. 
These  steps  compile  each  COBOL 
file. 

12- B  $  LIB/REP  GENLIB.OLB  * .OBJ 

This  step  inserts  the  generated 
object  modules  in  a  library  named 
genlib.olb  in  the  user's 
directory. 

13- B  $  CC  testapC  This  compiles  the  .C  code. 


UTP620144502 
1  November  1985 


14- B  $  @ [ NDMLd i r ] LNKORP  <RP-Main  process  name > 

This  step  links  the  RP-Main  to 
the  RP-Sub  to  produce  an 
executable . 

NOTE:  This  RP  process  name  is  the 
Yxxxx  name . 

15- B  S  @LNKAP  testap  This  step  links  the  compiled  .C 

and  .COB  modules  with  the  RAP 
library  to  produce  an  executable. 


Stage  4  - 

16-B  $  DELETE  SEL* . DAT ; *  When  executed,  the  generated 

application  creates  files  named 
SELn.DAT.  These  remain  after  the 
application  terminates.  To  avoid 
confusion  it  is  recommended  that 
they  be  deleted. 

17- B  $  UFI  Update  the  UI  database  of  known 

appl i cat ions . 

username :  <  username  > 
password:  < password > 

Enter  the  following  line: 

INSERT  INTO  ROLAPP  VALUES 

('<role  in  capital  letters>',  ' SDTESTAPZZ ' ) ; 
EXIT 

The  following  steps  update  the 
NTM  database . 

18- B  $  EDIT/EDT  ACTTBL.DAT  Insert  new  lines  as  follows: 

TESTAPZZ1 

< RP-Main  process  name  padded  to  8  characters  with  Z's>l 

19- B  $  EDIT/EDT  APITBL.DAT 

Insert  new  lines  as  follows: 

SDTESTAPZZT1V1 

GR< RP-Main  process  name  padded  to  8  characters  with 

Z ' s  >T1V1 
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20- B  $  EDIT/EDT  APTTBL.DAT 

Insert  new  lines  as  follows: 
TESTAPZZ05990 103200000 1 0 

<RP-Main  name  padded  to  8  characters  with 

Z's >9999010120001130 

21 - B  $  VT100 

Start  up  the  VT100  device  driver. 
If  the  User  Interface  system  has 
been  installed  at  your  site  with 
a  different  device  driver,  then 
this  step  is  amended  as  is 
appropriate . 

22- B  Fill  in  the  items  on  the  IISS 

logon  screen  as  follows: 

Username :  <  MORENC > 

Pas  sword :  <  STANLEY  > 

Role  :  < MANAGER > 

Press  < ENTER > 

23- B  Fill  in  the  items  on  the  FUNCTION 

screen  as  f o 1 1 ows : 

Function:  SDDEFINEAP 
Press  < ENTER > 

24- B  Fill  in  the  items  on  the  screen 

that  is  displayed  as  follows: 

report:  SDTESTAPZZ 

description:  APPLICATION  GENERATOR 
host  :  VAX 

Press  < ENTER > 

Press  < QUIT > 

25- B  S  VT100  -RTESTAP . SCP  -STESTAP.CMP 

Start  up  the  VT100  device  driver 
with  a  source  script  file  as 
input  said  a  target  script  file  as 
output.  If  the  User  Interface 
system  has  been  Installed  at  your 
site  with  a  different  device 
driver,  then  this  step  is  amended 
as  is  appropriate. 

26- A  >SD  This  begins  the  shutdown  of  the 

NTM 
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APPENDIX  A 

TEST  APPLICATION  TESTAP . FDL 


The  following  is  the  file  TESTAP. FDL  which  is  the  source 
file  for  the  test  application  TESTAP.  (Due  to  editing 
constraints  on  this  document  some  text  strings  appear  continued 
on  a  second  line.  The  actual  application  definition  under  IISS 
Configuration  Management  does  not  contain  the  carriage  return 
embedded  within  the  string.) 


CREATE  APPLICATION  TESTAP 
ON  (STARTUP) 

SET  ' Topf orm . Newuser ; '  -  "  “ 

PRESENT  Topform 

ON  (PICK  RETURN  B  CURSOR  IN  'Delform;')  PRESENT  Topform 

ON  (PICK  RETURN  B  CURSOR  IN  'Insform;')  PRESENT  Topform 

ON  (PICK  RETURN  B  CURSOR  IN  'Modform;')  PRESENT  Topform 

ON  (PICK  RETURN  B  CURSOR  IN  TESTAP;')  PRESENT  Topform 

ON  (PICK  DELETE)  PRESENT  Delform 
ON  (PICK  INSERT)  PRESENT  Insform 
ON  (PICK  MODIFY)  PRESENT  Modform 
ON  (PICK  QUERY)  PRESENT  TESTAP 

ON  (  Delform. Verify; '  -  "Y") 

SET  Delform. Verify ; '  =  "  " 

SET  Delform.Vermsg; '  =  "Verification  On" 

PRESENT  Delform 

ON  (  Delform. Verify ; '  -  "N" ) 

SET  Delform. Verify ;  '  «■  "  " 

SET  Delform.Vermsg;'  -  "Verification  Off" 

PRESENT  Delform 

ON  (  Ins form. Opt  ions; '  -  "Y" ) PRESENT  IOPTS  IN  INSWIN;' 

ON  (  Topf orm. Newuser ; '  -  "Y") 

SET  ' Topf orm . Newuser ; '  -  "  " 

HELP  TOPHELP 


UTP620 144502 
1  November  1985 


ON  (PICK  QUIT)EXIT 

CREATE  FORM  Topform 

PROMPT  CENTER  AT  ROW  1  AND  COL  40 

"Structural  Dynamics  Research  Corporation” 

PROMPT  CENTER  AT  ROW  2  AND  COL  40 

"IISS  Application  Generator  Release  2.0“ 

KEYPAD  (KEY  4  =  QUIT 

KEY  5  -=  DELETE 
KEY  6  -  INSERT 
KEY  7  =  MODIFY 
KEY  8  =  QUERY) 

ITEM  Date  AT  ROW  4  AND  COLUMN  12  SIZE  9  VALUE  '.DATE' 
PROMPT  AT  LEFT  "DATE:  ”  DISPLAY  AS  TEXT 
ITEM  Time  AT  ROW  4  AND  COLUMN  62  SIZE  9  VALUE  ' .TIME' 
PROMPT  AT  LEFT  “TIME:  "  DISPLAY  AS  TEXT 
ITEM  NEWUSER  AT  ROW  6  AND  COL  45  SIZE  1  BY  1  DOMAIN 
(UPPER)  DISPLAY  AS  INPUT 

PROMPT  AT  LEFT  "Do  you  wish  help  getting  started?  (Y/N)’ 

CREATE  FORM  TOPHELP 

PROMPT  AT  ROW  6  AND  COL  2 

"This  example  illustrates  the  functionality  of  the  Rapid 
Appl i cat ion" 

PROMPT  AT  ROW  7  AND  COL  2 

"Generator.  Only  query  capability  is  available  in  this 
release. 

PROMPT  AT  ROW  9  AND  COL  7 

".  Hit  pf 4  to  return  to  the  top  level  form" 

PROMPT  AT  ROW  10  AND  COL  7 

".  Hit  pf 5  to  display  a  DELETE  form" 

PROMPT  AT  ROW  11  AND  COL  7 

".  Hit  pf6  to  display  an  INSERT  form" 

PROMPT  AT  ROW  12  AND  COL  7 

".  Hit  pf 7  to  display  a  MODIFY  form” 

PROMPT  AT  ROW  13  AND  COL  7 

".  Hit  pf 8  to  display  a  QUERY  form" 

PROMPT  AT  ROW  21  AND  COL  2 

"Hit  <enter>  to  return  to  the  top  level  form." 
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CREATE  FORM  Del form 

PROMPT  CENTER  AT  ROW  2  AND  COL  40  "Application  Generator" 
PROMPT  AT  ROW  3  AND  COL  2  "Delete  Record  Form" 

PROMPT  AT  ROW  4  AND  COL  4 

M  « 

KEYPAD  (KEY  4  -  RETURN) 

ITEM  Verify  AT  ROW  6  AND  COL  70  SIZE  1  BY  1 
DISPLAY  AS  INPUT  DOMAIN  (MUST  ENTER  UPPER) 

PROMPT  AT  LEFT 

"Do  you  wish  to  verify  before  DELETE  operation  is 
committed*?  (Y/N)" 

ITEM  Vermsg  AT  ROW  7  AND  COL  5  SIZE  17  DISPLAY  AS  OUTPUT 
PROMPT  AT  ROW  9  AND  COL  38  "Records  Retrieved" 

FORM  Drecords  AT  ROW  10  AND  COL  14  SIZE  64  BY  10 
ITEM  Delpick(10  VERTICAL  WITH  0  SPACES) 

AT  ROW  10  AND  COL  13  SIZE  1  BY  1  DISPLAY  AS  INPUT 

CREATE  FORM  Drecords 
BACKGROUND  WHITE 

CREATE  FORM  Insform 

PROMPT  CENTER  AT  ROW  2  AND  COL  40  "Application  Generator" 
PROMPT  AT  ROW  3  AND  COL  2  "Insert  Record  Form" 

PROMPT  AT  ROW  4  AND  COL  4 


KEYPAD  (KEY  4  -  RETURN) 

PROMPT  CENTER  AT  ROW  6  AND  COL  40  "Records  To  Be  Inserted." 
ITEM  Options  AT  ROW  7  AND  COL  20  SIZE  1  BY  1 
DISPLAY  AS  INPUT 

DOMAIN  (UPPER)  PROMPT  AT  LEFT  "Options:  (Y/N)  " 

FORM  I records  AT  ROW  8  AND  COL  2  SIZE  72  BY  10 
WINDOW  INSWIN  AT  ROW  20  AND  COL  2  SIZE  72  BY  2 
BACKGROUND  BLACK 

CREATE  FORM  I records 
BACKGROUND  WHITE 

CREATE  FORM  IOPTS  CONDITIONAL 

ITEM  LRECL  AT  ROW  1  AND  COL  20  SIZE  3  BY  1 
DISPLAY  AS  INPUT 
PROMPT  AT  LEFT  “Record  Length:  " 

ITEM  BLNKS  AT  ROW  1  AND  COL  60  SIZE  1  BY  1 
DISPLAY  AS  INPUT  DOMAIN  (UPPER) 

PROMPT  AT  LEFT  "Strip  trailing  blanks?  (Y/N)" 
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CREATE  FORM  Modform 

PROMPT  CENTER  AT  ROW  2  AND  COL  40  "Application  Generator" 
PROMPT  AT  ROW  3  AND  COL  2  “Modify  Record  Form" 

PROMPT  AT  ROW  4  AND  COL  4 

M  M 

KEYPAD  (KEY  4  -  RETURN) 

PROMPT  AT  ROW  6  AND  COL  38  "Records  To  Be  Modified" 

FORM  Mrecords  AT  ROW  8  AND  COL  2  SIZE  72  BY  10 


CREATE  FORM  Mrecords 
BACKGROUND  WHITE 

/***»**,»,*,,,,"•*,**,.»  reports  **»*•»*»»***»***»*»»**»»*/ 

CREATE  FORM  TESTAP 

PROMPT  CENTER  AT  ROW  2  AND  COL  40  “Application  Generator" 
PROMPT  AT  ROW  3  AND  COL  2  "Select  Record  Form" 

PROMPT  AT  ROW  4  AND  COL  4 

M _ _ _ _ _  _ _  _  « 

KEYPAD  (KEY  4  -  RETURN) 

PROMPT  CENTER  AT  ROW  5  AND  COL  15  "Available  Reports" 

ITEM  Rpt45  AT  7  20  SIZE  1  PROMPT  AT  LEFT  "RPT45" 

DISPLAY  AS  INPUT 

ITEM  Selrpt  AT  8  20  SIZE  1  PROMPT  AT  LEFT  "SELRPT" 

DISPLAY  AS  INPUT 
PROMPT  AT  ROW  10  AND  COL  25 

"Enter  any  non-blank  character  to  select  a  report." 

/*\ 

*  RPT45 

\*/ 

ON  ( ' Rpt45 ; '  ! -  "  " ) 

SELECT  ' Stype . Dbname ; '  =  DB . DBNAME 

' Stype . Set  id ; '  «  SM.SETID 

' Stype. Rtown id ; '  «=  RS . RTIDOFOWNER 
' Stype .Rtmemid ; '  -  SM .RTIDOFMEMBER 
' Stype. Reqopt ; '  -  SM . REQ_MEM_IND 

FROM  DATA_BASE  DB, 

RECORDTYPE  RT, 

RECORDSET  RS , 

SET  TYPE  MEMBER  SM 
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WHERE  DB.DBID  -  RT.DBID  AND 
RT.DBID  -  RS.DBID  AND 
RT.RTID  -  RS.RTIDOFOWNER  AND 
RS.DBID  -  SM.DBID  AND 
RS . SET_ID  -  SM . SET_ID 

/• 

ORDER  BY  DB.DB  NAME 
SM.SETID 
RS . RT  ID  OFOWNER 
SM . RT  ID  OF  MEMBER 
SM.REQ  MEMIND 


*  / 

PRESENT  Page45 

ON  (OVERFLOW  BY  ' Page45 . stype( 1 ) ' ) 

HELP  “Press  <enter>  to  continue.  «quit>  to  quit." 

ON  (PICK  NTER  0  CURSOR  IN  ' Page45 ; ' )  PRESENT  Page45 
ON  (PICK  QUIT  B  CURSOR  IN  ' Page45 ; ' )  PRESENT  Testap 

CREATE  FORM  PAGE45 
SIZE  80  BY  23 


KEYPAD 

(KEY 

0  - 

NTER  KEY 

4  -  QUIT) 

PROMPT 

AT 

1 

35 

"REPORT  OF  CODASYL  SET  TYPES" 

PROMPT 

AT 

3 

2  " 

DBNAME" 

PROMPT 

AT 

4 

2  " 

M 

PROMPT 

AT 

3 

13 

"SETID" 

PROMPT 

AT 

4 

13 

M 

M 

PROMPT 

AT 

3 

34 

"RTIDOF 

OWNER" 

PROMPT 

AT 

4 

34 

it 

M 

PROMPT 

AT 

3 

55 

"RTIDOF 

MEMBER " 

PROMPT 

AT 

4 

55 

it 

** 

PROMPT 

AT 

3 

76 

"R/O" 

PROMPT 

AT 

4 

76 

«  M 

ITEM  Dummy  AT  2  2  SIZE  1  BY  1  DISPLAY  AS  INPUT 
ITEM  Pdate  DISPLAY  AS  TEXT  AT  1  2  SIZE  10 
VALUE  ' ._TIME ' 

ITEM  Ppage  DISPLAY  AS  TEXT  AT  1  70  VALUE  '.  PAGENO; 
FORM  STYPE  (*  VERTICAL  0)  AT  5  2  SIZE  76  BY  1 
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CREATE  FORM  Stype 

ITEM  Dbname  DISPLAY  AS  OUTPUT  AT  1  2  SIZE  10 

ITEM  Setid  DISPLAY  AS  OUTPUT  AT  1  13  SIZE  20 

ITEM  Rtownid  DISPLAY  AS  OUTPUT  AT  1  34  SIZE  20 

ITEM  Rtmeaid  DISPLAY  AS  OUTPUT  AT  1  55  SIZE  20 

ITEM  Reqopt  DISPLAY  AS  OUTPUT  AT  1  76  SIZE  1 

ON  ( 'Selrpt; *  !=  M  ") 

SELECT  ' Es i tem( 1 ) . Esname ; '  «  VW.VIEWNAME 
' Esitem(l). Diname ; '  -VW.DIID 
' Es i tem( 1 ) . Dimr ; '  =  VW . ESTYPE 

'Esitem(l). Disize; '  =  VW.ESSIZE 
' Es i tem( 1 ) . Di nd ; '  *  VW . ESND 

FROM  VIEWMETADATA  VW 

/*  ORDER  BY  VW.VIEWNAME  VW.DIID  »/ 

PRESENT  Esrpt 

ON  (Overflow  BY  ' Esrpt . es . es i tem( 1 )' ) 

HELP  "Press  < enter >  to  continue,  <quit>  to  quit." 

ON  (PICK  NTER  0  CURSOR  IN  Esrpt;')  PRESENT  ESRPT 
ON  (PICK  QUIT  8  CURSOR  IN  Esrpt;')  PRESENT  TESTAP 

CREATE  FORM  Esrpt 

KEYPAD  (KEY  0  -  NTER  KEY  4  -  QUIT) 

PROMPT  CENTER  AT  1  20  "External  Schemas  in  CDM” 

PROMPT  CENTER  AT  2  20  " - " 

ITEM  Dummy  AT  1  2  SIZE  1  BY  1  DISPLAY  AS  INPUT 
ITEM  Pagenum  AT  1  70  DISPLAY  AS  TEXT  VALUE  .PAGENO;' 
ITEM  Today  RIGHT  AT  10  LEFT  OF  Pagenum  DISPLAY  AS  TEXT 
VALUE  ' .  DATE ; ' 

FORM  Es  AT  42  SIZE  79  BY  20 

CREATE  FORM  ES 

PROMPT  AT  2  2  "External  Schema" 

PROMPT  AT  2  35  "Data  Item" 

PROMPT  AT  2  67  "MR" 

PROMPT  AT  2  70  "SIZE" 

PROMPT  AT  2  75  "ND" 

FORM  Esitem  (•  VO)  AT  3  2  SIZE  78  BY  1 
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) 

I 

» 


CREATE  FORM  ESITEM 


ITEM 

Esn&ine 

DISPLAY 

AS 

OUTPUT 

AT 

1 

2 

SIZE 

30 

ITEM 

Diname 

DISPLAY 

AS 

OUTPUT 

AT 

1 

35 

SIZE 

30 

ITEM 

Dimr 

DISPLAY 

AS 

OUTPUT 

AT 

1 

67 

SIZE 

1 

ITEM 

Di size 

DISPLAY 

AS 

OUTPUT 

AT 

1 

70 

SIZE 

4 

ITEM 

Dind 

DISPLAY 

AS 

OUTPUT 

AT 

1 

75 

SIZE 

4 

! 

■ 

« 

* 

I 

I 
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. ^ 
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APPENDIX  B 

GENERATED  C  AND  COBOL  CODE 


♦include  <stdtyp.h> 

♦include  <stdio.h> 

♦include  <fpcode.h> 

♦include  <ntm.h» 

♦include  <ctlchr.h> 

♦define  RCODELEN  5 

♦define  NDMLOK  "00000" 
typedef  struct  acttyp 

struct  acttyp  *nxtact; 
int  actno; 
int  priority; 

}  ACTION; 

ACTION  *f irstact  =  NULL; 

ACTION  * ‘addptr ; 

int  i,  pf key ; 

static  int  page; 

int  selno; 

char  rcode [ 5 ] ; 

char  cpath[121]; 

char  sy stated]; 

bool  f lddsp[53] ; 

int  winfrm[53]; 

int  scrnfrm; 

char  mynamei]  -  “SDTESTAP" ; 
char  formnamet 12] ; 

♦ifndef  FRM46 
struct  frm46 
{ 

char  ESNAME[30] ; 
char  DINAME [30]; 
char  DIMR[ 1 ] ; 

Char  DISIZE[4] ; 
char  DIND[ 4 ] ; 

}  f rm46 ;  /*  ESITEM  */ 
♦define  FRM46 
♦end  if 

♦ifndef  FRM38 
struct  frm38 
{ 

char  DUMMY [ 1 3 ; 
char  PAGENUM [11]; 
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char  TODAY [9] ; 

}  f rm38 ;  /*  ESRPT  V 
♦define  FRM38 
♦end if 

♦ifndef  FRM32 
struct  frm32 
{ 

char  DBNAME [10]; 
char  SETID[20] ; 
char  RT0WNID[20] ; 
char  RTMEMID[20] ; 
char  REQOPT [ 1 ] ; 

}  frm32;  /*  STYPE  */ 
♦define  FRM32 
♦end if 

♦ifndef  FRM26 
struct  frm26 
{ 

char  DUMMY [ 1 ] ; 
char  PDATE [10]; 
char  PPAGE [11]; 

}  f rm26 ;  /*  PAGE45  */ 
♦define  FRM26 
♦end if 

♦ifndef  FRM17 
struct  frml7 
{ 

char  LRECL[3] ; 
char  BLNKS [ 1 ] ; 

}  frml7;  /*  IOPTS  V 
♦define  FRM17 
♦end if 

♦ifndef  FRM23 
struct  frm23 
{ 

char  RPT45 [ 1 ] ; 
char  SELRPT [ 1 ] ; 

}  fr»23;  /*  TESTAP  */ 
♦define  FRM23 
♦end if 

♦ifndef  FRM12 
struct  frml2 
{ 

char  OPTIONS [  1  ]  ; 

}  f rml2 ;  /*  INSFORM  »/ 
♦define  FRM12 
♦end i f 
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♦ifndef  FRM5 


struct  frm5 

{ 

char  VERIFY [ 1 ] ; 
char  VERMSG[ 17] ; 
char  DELPICK[ 10] [ 1 ] ; 

}  f ro5 ;  /*  DELFORM  V 
♦define  FRM5 
♦end if 

♦ifndef  FRMO 
struct  frmO 
{ 

char  DATE [9]; 
char  TIME[9] ; 
char  NEWUSERt 1 ] ; 

}  frmO;  /•  TOPFORM  */ 
♦define  FRMO 
♦endif 


struct  frm38  frm38c 
struct  frm46  frm46c 
struct  frm26  frm26c 
struct  frm32  frm32c 
struct  frml7  frml7c 
struct  frm23  frm23c 
struct  frml2  frml2c 
struct  frm5  frm5c, 
struct  frmO  frmOc, 
char  path0[120]  -  “ 
char  path4[120]  =  " 
char  path5[120]  «=  “ 
char  pathll[120]  = 
char  pathl2[120]  « 
char  pathl6[120]  = 
char  pathl7[120]  = 
char  path20[120]  * 
char  path22[120]  = 
char  path23[120]  = 
char  path26[120]  - 
char  path32[120]  - 
char  path38[120]  - 
char  path43[120]  - 
char  path46[120]  « 
struct 


,  f rm38p ; 

,  f rm46p ; 

,  f rm26p ; 

,  frm32p; 

,  f rml7p ; 

,  frm23p; 

,  frml2p; 
frm5p; 
frmOp; 
TOPFORM M ; 
TOPHELP" ; 
DELFORM" ; 
"DRECORDS " ; 
" INSFORM" ; 
"I RECORDS" ; 
" I0PTS " ; 
"MODFORM" ; 

" MRECORDS ” ; 
"TESTAP" ; 
"PAGE45" ; 
"STYPE" ; 
"ESRPT" ; 
"ES"  ; 
"ESITEM" ; 
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{ 

char  DBNAME [10]; 
char  SETID[20] ; 
char  RTOWNID[20] ; 
char  RTMEMID[20]; 
char  REQOPT [ 1 ] ; 
char  cr ; 

}  dbrO; 
struct 
{ 

Char  ESNAME[30] ; 
char  DINAME [30]; 

Char  DIMR [ 1 ] ; 
char  DISIZE[4] ; 
char  DIND[4] ; 
char  cr ; 

}  dbrl; 

FILE  *self i 1 [2]  - 
{ 

NULL, 

NULL, 

}; 

int  dbcode[2] ; 
char  f i lnam[2] [ 10]  * 

{ 

“sel0.dat" , 

"sell.dat" , 

}; 

struct 

{ 

char  dummy ; 

}  whrstruct; 

♦include  <fpparm.h> 
main  (  ) 

{ 

int  page  =  1 ; 
int  code; 

static  int  currnt  -  CURRNT; 
char  *strchr(); 
ohar  rcode[5]; 
char  ntm_buf fer [4096] ; 

static  char  ntm_buffer_size[ ] -{ "4096" } ; 
char  systate[l]; 

memset(@f rm38c ,  sizeof  frm38c); 

memset(©f rm46c ,  sizeof  frm46c); 

memset(©f rm26c ,  '  sizeof  frm26c); 

memset(Uf rm32c ,  sizeof  frm32c); 
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memset(8ff  rml7c  ,  sizeof  frml7c); 

memset(©f rm23c ,  '  sizeof  frm23c); 

memset(E?f  rml2c  ,  sizeof  frml2c); 

Bemset(#f rm5c ,  sizeof  frmSc); 

memset(#f rmOc ,  sizeof  frmOc); 

for  (i  =  0;  i  <  52;  i++) 

{ 

f lddsp[ i ]  =  FALSE; 
winf rm[ l  ]  =  -1  : 

} 

scrnfrn  *  - 1 ; 

inital(ntm  buffer,  ntm  buffer  size,  systate,  rcode) ; 
if  ( mcmcmpl rcode .  NTMGOODRET ,  RCODELEN )  •=  0) 

{ 

pmsg 1 c( rcode  )  ; 

newpagC " screen ; “ .  rcode  ) ; 

goto  error ; 

} 

ini tfp( ) ; 
adda 1(0); 
while  (firstact) 

{ 

i  -  firstact- >actno ; 
free(f irstact) ; 
firstact  -  firstact- >nxtact ; 
doact( i ) ; 

} 

while  (TRUE) 

{ 

if  ( f lddsp[ 38 ] ) 

pdata(path38 ,  0frm38c,  rcode); 
if  ( f lddspt 26] ) 

pdata(  path26 ,  5ffrxn26c,  rcode); 
if  ( f lddsp[ 17  ]  ) 

pd..ta(  pathl7  .  0frml7c.  rcode); 
if  ( f lddsp[23]  ) 

pdata(  path23  .  C?frm23c.  rcode); 
if  ( f lddsp[ 12 ] ) 

pdata(pathl2 ,  &frml2c,  rcode); 
if  ( f lddspl 5 ] ) 

pdata(path5,  Pfrm5c,  rcode); 
if  ( f lddsptO] ) 

pdata(pathO,  efrmOc,  rcode); 
oiscr( "screen" ,  ©pfkey,  rcode); 
if  ( f lddsp[ 38 3  ) 
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{ 

memcpy(&frm38p,  #frm38c,  s izeof ( frm38c) ) ; 
gdata(£?currnt ,  path38 ,  &f rm38c ,  rcode); 

if  (f lddsp[26] ) 

{ 

memcpy(efrm26p,  0frm26c,  s izeof (frm26c) ) ; 
gdata(ffcurmt,  path26,  &f  rm26c ,  rcode); 

} 

if  ( f lddsp[ 17] ) 

{ 

memcpy(©f rml7p .  6?frml7c,  s  i  zeof  (  f  rml7c  ) )  ; 
gdata(  ©currnt  ,  pathl7,  6?frml7c,  rcode); 

} 

if  ( f lddsp[23] ) 

{ 

memcpy(0f rm23p ,  0frm23c,  s i zeof ( f rm23c ) ) ; 
gdata(©currnt ,  path23,  6?frm23c,  rcode); 

} 

if  ( f lddsp[ 12] ) 

{ 

memcpy(8frml2p,  efrml2c,  sizeof ( fr»12c) ) ; 
gdata(ffcurrnt ,  pathl2,  Sfrml2c,  rcode); 

if  (f lddsp[5] ) 

{ 

memcpy(©f rm5p ,  0frm5c,  sizeof (frm5c)) ; 
gdata(©currnt ,  path5,  Bfrm5c,  rcode); 

if  (f lddsp[0] ) 

{ 

memcpy(£?f  rmOp  ,  CffrinOc,  s  i  zeof  (  f  rmOc  )  )  ; 
gdata({?currnt ,  pathO ,  ©frmOc,  rcode); 

trigl( )  i i 
trig2( )  i l 
trig3( )  l l 
trig4( )  l l 
tr ig5( )  II 
trig6( )  I l 
trig7( )  l l 
tr ig8( )  I  l 
trig9( )  I  i 
triglO(  )  I  I 
trigl 1 ( )  I i 
trigl2( )  I i 
trigl3( )  I i 
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trigl4(  )  i  i 
trigl6( )  i i 
trigl7( )  M 
trigl8(  )  I  i 
trig20( )  i i 
trig21 (  )  ii 
chkcng( ) ; 

while  (firs tact) 

{ 

i  -  f irstact- .actno ; 

f ree( f i rstact ) ; 

firstact  *=  f  irstact-  nxtact  . 

doact (  i  )  ; 

) 

} 

error : 
ter»fp( ) ; 
systate[0]  -  1  '  ; 

trandal ( systate) ; 

} 

bool  trigl() 

{ 

bool  cond  -  FALSE; 

char  path_nane[ 128] ,  rcode [ RCODELEM ] .  fid  type, 

*strchr(); 

char  t apnaa  [128]  ; 

int  pathlen,  chcklen,  row,  col.  i,  J; 
if  (pfkey  ! -  4  ii  !flddsp[5]) 
return  FALSE; 

getcur(path_naae ,  Bf Id  type,  Brow,  Bcol .  rcode); 
path  len  «  strchr( pathname ,  )  -  path  naae  +  1 

j  -  0; 

sprintf  ( tmpnaio,  “DELFORM"); 
chck  len  =  str  len(  tapnam  )  ; 

while  ((i  *  index(Bpath_name[ j ]  ,  tapnam))  > *  0  Bfe' 
i  +  j  +  chck  len  ««  path  len) 

{ 

if  (path_naae[i  +  j  -  1]  --  BB 

strchr( path_naae[i  +  j  +  chck  len])) 

cond  -  TRUE; 
page  -  1 ; 

rmvpagC "screen ; " ,  Bpage ,  rcode ) ; 
addfrm( "screen" ,  "TOPFORM" ,  Bpage.  rcode); 
strcpyCformname ,  "TOPFORM"); 
pdata(pathO,  BfrmOc,  rcode); 


CJ  IT 
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flddsptO]  -  TRUE; 

if  (scrnfrm  >-  0)  f  lddsp[  scrnfrm]  -=  FALSE; 
scrnfrm  -  0; 

} 

j  ♦-  i  +  1 ; 

) 

return  cond ; 

) 

>1  tng2(  ) 

{ 

bool  cond  -  FALSE; 

char  path  name t 128 ] .  rcode [ RCODE  LEN ] .  fid  type. 

• strchrf  )  . 

char  tmpnam! 128] : 

int  path  len.  chck  len,  row,  col,  i,  j; 
if  ( pf key  >■  4  n  ' f lddspl 12 ]  ) 
return  FALSE. 

getcur( pathname .  Bf Id  type,  Brow,  Bcol .  rcode); 
path  len  -  strchr ( pathname .  ;')  -  path  name  +  1; 

j  -  0; 

spr intf ( tmpnam ,  " INSFORM" ) ; 
chck  len  -  strlen( tmpnam). 

while  ((i  -  index (Bpath  namet J ) ,  tmpnam))  » «  0  BB 
i  ♦  J  +  chck  len  <■  path  len) 

if  (path  name [i  ♦  j  -  1 )  »■  '  BB 

strchr( .  path  nameti  +  J  +  chck  len))) 

{ 

cond  -  TRUE ; 
page  -  1  ; 

rmvpag( "screen ;"  .  Bpage .  rcode); 

addfrm( " screen "  "TOPFORM" .  Bpage.  rcode); 

strcpy(form  name,  "TOPFORM"); 

pdata(pathO.  Bf rmOc .  rcode); 

flddsp[0)  -  TRUE, 

if  (scrnfrm  «  0)  f lddspl scrnf rm]  -  FALSE, 
scrnf rm  «  0 . 

) 

j  ♦-  i  ♦  1 ; 

) 

return  cond . 

) 

1  tr ig3( ) 

{ 

bool  cond  -  FALSE, 

char  path  name [128],  rcode [RCODE  LEN],  fid  type. 

• 6trchr( ) . 
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char  tmpnam! 128 ] ; 

int  pathlen,  chcklen,  row,  col,  i,  j; 
if  (pfkey  !=  4  II  !flddsp[20]) 
return  FALSE; 

getcur(path_name ,  ©fldtype,  ©row,  ©col,  rcode); 
pathlen  -  strchr(path_name ,  -  pathname  +  1; 

j  -  0; 

spr intf ( tmpnam ,  "MODFORM" ); 
chcklen  =  str len( tmpnam) ; 

while  ( ( i  -  index(©path_name[ j ] ,  tmpnam))  >*  0  ©© 
i  +  j  +  chck  len  <  ■=  path  len) 

{ 

if  (path_name[i  +  j  -  1 ]  *=  . '  && 

s trchr ,  pathnamefi  +  j  +  chck  len])) 

{ 

cond  =  TRUE; 
page  -  1 ; 

rmvpag( “ screen ; “ ,  ©page ,  rcode) ; 
addfrm( "screen” ,  “TOPFORM" ,  ©page,  rcode); 
strcpy(form_name,  “TOPFORM"); 
pdataCpathO,  ©frmOc,  rcode); 
flddsp[0]  -  TRUE; 

if  (scrnfrm  >«  0)  f lddsp[ scrnfrm]  »  FALSE; 
scrnfrm  ■  0; 

} 

j  +«  i  +  1 ; 

} 

return  cond; 

} 

bool  trig4() 

{ 

bool  cond  =  FALSE; 

char  pathname! 128 ] ,  rcode [ RCODELEN ] ,  fid  type, 

* strchr( )  ; 

char  tmpnam [128] ; 

int  pathlen,  chcklen,  row,  col,  i,  j; 
if  (pfkey  !=  4  ll  !flddsp[23]) 
return  FALSE; 

getcur(path_name ,  ©fld_type,  ©row,  ©col,  rcode); 
path_len  -  strchr(path_name ,  ';')  -  pathname  +  1; 
j  -  0; 

sprintf (tmpnam,  “TESTAP"); 
chck_len  -  strlen(  tmpnam)  ; 

while  ( ( i  -  index(©path_name[ j ] ,  tmpnajn))  >«  0  ©© 
i  +  j  +  chcklen  <■  path_len) 
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{ 

if  (path_name[i  +j-l]  =='.'©© 

strchr (".(<;" ,  path  name[i  +  j  +  ehck  len])) 

{ 

cond  «  TRUE; 
page  -  1; 

rmvpag( " screen ; “ ,  ©page ,  rcode ) ; 

addfrm( " screen" .  "TOPFORM",  ©page,  rcode); 

strcpy( f ormname ,  “TOPFORM" ) ; 

pdata(pathO,  ©frmOc,  rcode); 

flddspt 0]  =  TRUE; 

if  (scrnfrm  >=  0)  f lddsp[ scrnfrm]  =  FALSE; 
scrnfrm  =  0; 

} 

j  +-  i  +  1 ; 

) 

return  cond; 

) 

bool  trig5() 

{ 

bool  cond  -  FALSE; 
if  Cpfkey  !-  5  i i  IflddsptO]) 
return  FALSE; 
page  -  1; 

rmvpag( “screen; " ,  ©page,  rcode) ; 
addfrmC “screen" ,  “DELFORM" ,  ©page,  rcode); 
strcpy(form_name ,  “DELFORM"); 
pdata(path5,  ©frm5c,  rcode); 
f lddsp[5]  -  TRUE; 

if  (scrnfrm  0)  flddspt scrnfrm]  «=  FALSE; 
scrnfrm  «  5; 
return  TRUE; 

} 

bool  trig6( ) 

{ 

bool  cond  =  FALSE; 
if  (pfkey  !=  6  ii  IflddsptO]) 
return  FALSE; 
page  -  1; 

rmvpagC "screen ;“ ,  ©page,  rcode); 
addfrm( "screen" ,  "INSFORM",  ©page,  rcode); 
strcpyCformname .  "INSFORM"); 
pdata(pathl2 ,  ©frml2c,  rcode); 
flddspt 12]  -  TRUE; 

if  (scrnfrm  >■  0)  flddspt scrnfrm]  »  FALSE; 
scrnfrm  -  12; 
return  TRUE; 
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} 

bool  trig7() 

{ 

bool  cond  -  FALSE; 
if  (pfkey  »«  7  u  IflddsptO]) 
return  FALSE; 
page  -  1 ; 

rmvpag( "screen ,  ©page,  rcode); 
addfrm( "screen" ,  "MODFORM",  ©page .  rcode); 
strcpy(form_name,  "MODFORM"); 
flddsp[20]  -  TRUE; 

if  (scrnfrm  >=  0)  f  lddsp[  scrnf  rm)  *=  FALSE; 
scrnfrm  =  20; 
return  TRUE; 

) 

bool  trig8() 

{ 

bool  cond  *=  FALSE; 
if  (pfkey  !~  8  II  !flddsp[0]) 
return  FALSE; 
page  -  1 ; 

rmvpagC " screen ; " ,  Bpage ,  rcode ) ; 
addfrmC "screen" ,  "TESTAP",  ©page,  rcode); 
strcpy(form_name,  “TESTAP"); 
pdata( path23 ,  0frm23c,  rcode); 
f lddsp[23]  -  TRUE; 

if  (scrnfrm  >«  0)  flddspl scrnfrm]  -  FALSE; 
scrnfrm  -  23; 
return  TRUE; 

} 

bool  trig9() 

{ 

bool  cond  *  FALSE; 
char  tempstr [ 128 ] ; 
if  (!flddsp[5])  return  FALSE; 
if  ( memcmp( frm5c . VERIFY , 

«y  m 

sizeof(frm5c. VERIFY))  --  0) 

{ 

cond  «  TRUE; 

memcpy(frm5c. VERIFY,  ’  ",  sizeof  frm5c .VERIFY) ; 
pdata(path5,  £frm5c,  rcode); 

memcpy(f rm5c . VERMSG ,  "Verification  On  ",  sizeof 
f rm5c . VERMSG ) ; 

pdata(path5,  CJfrm5c,  rcode); 
page  -  1 ; 

rmvpag( "screen ;" ,  tfpage,  rcode); 
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addfrm( "screen" ,  “DELFORM",  ©page,  rcode); 
strcpyCformname ,  "DELFORM"); 
pdata(path5,  ©frm5c,  rcode); 
flddsp[5]  -  TRUE; 

if  (scrnfrm  >«  0)  f lddsp[ scrnf rm]  -  FALSE; 
scrnfrm  «  5; 

) 

1  return  cond; 

1 

bool  triglO() 

{ 

bool  cond  *  FALSE; 

|  '  char  tempstrl  128  3  ; 

!  if  (!flddsp[5j)  return  FALSE; 

|  if  (memcmpCf rm5c . VERIFY , 

"N"  , 

sizeof (frm5c. VERIFY))  «  =  0) 

< 

cond  -  TRUE; 

;  memcpy(frm5c. VERIFY.  "  ",  sizeof  frm5c .VERIFY) ; 

pdata(path5,  ©frm5c,  rcode); 

memcpyC  f rm5c . VERMSG ,  “Verification  Off  ",  sizeof 
f rm5c . VERMSG) ; 

pdata( path5 ,  ©f rm5c .  rcode); 
page  -  1; 

rmvpagC "screen; " ,  ©page,  rcode); 
addfrm( "screen" ,  "DELFORM",  ©page,  rcode); 
strcpyCf ornnaae ,  "DELFORM" ) ; 
pdata(path5,  ©frm5c,  rcode); 
f lddsp[5]  -  TRUE; 

if  (scrnfrm  >*  0)  f lddsp[ scrnf rm]  «  FALSE; 
scrnfrm  «  5; 

3 

return  cond; 

} 

bool  trigllC) 

{ 

bool  cond  ■=  FALSE; 
char  tempstr[ 128] ; 
if  ( !flddsp[12j)  return  FALSE; 
if  ( memcmpCf rml 2c .OPTIONS , 

"Y"  . 

sizeof (frml2c. OPTIONS))  0) 

{ 

cond  -  TRUE; 
page  -  1 ; 

rmvpagC " INSWIN ; " ,  ©page,  rcode); 
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addfrm( "INSWIN; " ,  "IOPTS".  ©page,  rcode); 
pdata(pathl7 .  0frml7c.  rcode); 
f lddspt 17]  -  TRUE; 

if  (winfrm[16]  >-  0)  f lddsp[winfrm[ 16) )  -  FALSE; 
winfr»[16]  »  17; 

) 

return  cond; 

} 

bool  tr igl2( ) 

{ 

bool  cond  «  FALSE; 
char  tempstr [ 128 ] ; 
if  ( ! f lddsptO] )  return  FALSE; 
if  ( memcmp( f rmOc . NEWUSER . 

sizeof (frmOc. NEWUSER ) )  «=  0) 

{ 

cond  «  TRUE; 

memcpyC frmOc. NEWUSER,  “  ",  sizeof  frmOc .NEWUSER) ; 

pdat&CpathO,  efrmOc,  rcode); 

addfrm( “screen" ,  "TOPHELP" ,  Bpage ,  rcode); 

pmsgls( "Press  < enter >  to  continue."); 

o i scr ( " screen " ,  0pf key ,  rcode ) ; 

rmvpag( "screen" ,  ©page,  rcode); 

return  cond; 

} 

bool  trigl3() 

{ 

bool  cond  *  FALSE; 
if  (pfkey  !  «=  4  l  l  !flddsp[03) 
return  FALSE; 
termfp( ) ; 
systatetO)  *  '  1  '  ; 
trmndml ( systate ) ; 
return  TRUE ; 

) 

bool  trigl4() 

{ 

bool  cond  *  FALSE; 
char  tempstr [128] ; 
if  ( !f lddsp[23] )  return  FALSE; 
i f  ( memcrnp ( f rm2 3c . RPT4 5 , 

M  M 
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{ 

cond  *  TRUE ; 
selno  =  0; 

TESTAPX(©selno ,  ©whrstruct, 
f i lnamtO] , 
f i Inamt  1 ] , 
rcode) ; 

if  (memcmpC rcode,  NDMLOK ,  RCODELEN)  !=  0) 
pmsgls( rcode) ; 

if  (selfiltOl)  fcloseC self i 1 [0] ) ; 
selfiltO]  =  fopen(fi lnamtO] ,  "r"); 
nextdb(0,  ©dbrO,  sizeof  dbrO); 

STRASN ( f  rm32p ,  frm32c); 
page  =  1  ; 

rmvpag( "screen ;" ,  ©page,  rcode); 
addfrm( ” screen" ,  "PAGE45" ,  ©page,  rcode); 
strcpy( formname ,  "PAGE45" ) ; 
pdata(path26 ,  ©frm26c,  rcode); 
f lddsp[26]  -  TRUE; 

if  (scrnfrm  > «  0)  f lddspt scrnf rn]  «=  FALSE; 
scrnfrm  -  26; 

PAGE45(); 

} 

return  cond; 

} 

bool  trigl6() 

{ 

bool  cond  -  FALSE; 

char  pathname! 128] ,  rcode [ RCODELEN ] ,  fldtype, 

•strchrC); 

char  tmpnam [128] ; 

int  path_len,  chcklen,  row,  col,  i,  j; 
if  (pfkey  !«  0  ll  !flddsp[26]) 
return  FALSE; 

getcur( pathname ,  ©fid  type,  ©row,  ©col,  rcode); 
path_len  -  strchr( pathname ,  ’;)  -  path  name  +  1; 
j  -  0; 

sprintf (tmpnam.  "PAGE45” ) ; 
chck_len  -  str len( tmpnam) ; 

while  ( ( i  -  index(©path_name[ j ] ,  tmpnam))  > -  0  ©© 
i  +  j  +  chcklen  <-  pathlen) 

if  (pathnameti  +  j  -  1]  »  ’ . *  ©© 

strchrC ,  pathnameti  +  j  +  chcklen])) 
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{ 

cond  =  TRUE ; 
page  =  1 ; 

rmvpagC "screen; " ,  ©page,  rcode); 
addfrmC  “screen"  .  “PAGE45" ,  ©page,  rcode); 
strcpyC formname ,  "PAGE45" ) ; 
pdata(path26,  ©frm26c,  rcode); 
f lddspt  26]  =  TRUE; 

if  (scrnfrm  >=  0)  f lddspt scrnfrm]  =  FALSE; 
scrnfrm  «  26; 

PAGE45(); 

} 

j  +=-  i  +  1 ; 

} 

return  cond ; 

} 

bool  trigl7() 

{ 

bool  cond  -  FALSE; 

char  pathname [128],  rcode [ RCODELEN ] ,  f ldtype , 

•strchrO; 

char  tmpnam [128]; 

int  pathlen,  chcklen,  row,  col,  i,  j; 
if  (pfkey  !«  4  li  !flddsp[26]) 
return  FALSE; 

getcurCpathname,  ©fldtype,  ©row,  ©col,  rcode); 
pathlen  -  strchrCpathname ,  ';')  -  path  name  +  1; 
j  -  0; 

spr int f( tmpnam,  "PAGE45" ) ; 
chcklen  *  strlen( tmpnam) ; 

while  ((i  =  index(©path_name[ j] ,  tmpnam))  >■  0  ©© 
i  +  j  +  chcklen  <■  path_len) 

if  (path_name[i  +  j  -  1 ]=='.’  ©© 

strchr(  ,  path_najne[i  +  j  +  chck_len])) 

cond  «  TRUE ; 
page  -  1; 

rmvpag( " screen ; " ,  ©page ,  rcode) ; 
addfrm( "screen" ,  "TESTAP",  ©page,  rcode); 
strcpyC formname,  "TESTAP”); 
pdata(path23 ,  ©frm23c,  rcode); 
f lddspt 23]  -  TRUE; 

if  (scrnfrm  >■  0)  f lddspt scrnfrm]  -  FALSE; 
scrnfrm  -  23; 

} 
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j  +=  i  +  1 ; 

} 

return  cond; 

} 

bool  trigl8() 

{ 

bool  cond  -  FALSE; 
char  temps tr [ 128 ] ; 
if  ( ! f lddsp[23] )  return  FALSE; 
if  (memcmp( f rm23c . SELRPT , 

H  H 

9 

sizeof (frm23c . SELRPT) )  !=  0) 

{ 

cond  =  TRUE ; 
selno  *  1; 

TESTAPX(©selno ,  ©whrstruct , 
f i 1 nam [ 0 ] , 
f i 1 nam [  1  ]  , 
rcode) ; 

if  ( memcmpC rcode ,  NDMLOK,  RCODELEN)  ! ■  0) 
pmsglsC rcode) ; 

if  (selfilllj)  fcloseCself i 1 [ 1 ] ) ; 
selfiltl]  «  fopenCf i lnamt 1 ] ,  “r“); 
nextdbCl,  ©dbrl,  sizeof  dbrl); 

STRASN( f rm46p ,  frm46c); 
page  -  1 ; 

rmvpag( " screen ; " ,  ©page  ,  rcode ) ; 
addfrm( “screen" ,  "ESRPT" ,  ©page,  rcode); 
strcpyC form  name,  "ESRPT"); 
pdata(path38 ,  ©frm38c,  rcode); 
f lddsp[ 38 ]  -  TRUE; 

if  (scrnfrm  >  •=  0)  f  lddsp[  scrnf  rm]  *=  FALSE; 
scrnf rm  =  38 ; 

ESRPT( ) ; 

} 

return  cond; 

) 

bool  trig20() 

{ 

bool  cond  ■=  FALSE; 

char  pathnamet 128] ,  rcode [ RCODELEN ] ,  fldtype, 

*strchr(); 

char  tmpnam [128] ; 

int  path_len,  chck_len,  row,  col,  i,  j; 
if  (pfkey  !-  0  n  !flddsp[38]) 
return  FALSE; 

getcur(path_name ,  ©fldtype,  ©row,  ©col,  rcode); 
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path_len  =  strchr(path  name,  ';')  -  path_name  +  1; 
j  -  0; 

sprintf ( tmpnam,  “ESRPT" ) ; 
chcklen  =  strlen( tmpnam) ; 

while  ( ( i  =  index(tfpath_name[ j ] ,  tmpnam))  >*  0  08 
i  +  j  +  chck_len  <=  path_len) 

{ 

if  (path_name[i  +j-l)==  ' . '  && 

strehr( ,  path_name[i  +  j  +  chcklen])) 

{ 

cond  =  TRUE ; 
page  =  1 ; 

rmvpagC " screen ;  "  ,  itfpage ,  rcode); 
addfrm(  "  screen*  .  "ESRPT”,  tfpage ,  rcode); 
strcpy( f ormnam ? ,  “ESRPT"); 
pdata(path38  ,  5?-'rm38c ,  rcode); 
flddsp[38]  =  TRUE; 

if  Cscrnfrm  >=  C)  f lddsp[ scrnf rm]  =  FALSE; 
scrnfrm  *  38; 

ESRPT ( ) ; 

} 

j  +-  i  +  i; 

) 

return  cond; 

} 

bool  tr ig21 ( ) 

{ 

bool  cond  «  FALSE; 

char  path_name[ 128 ] ,  r oode[RCODE_LEN] ,  fldtype, 

*strchr( ) ; 

char  tmpnam [ 128] ; 

int  pathlen,  chcklen,  row,  col,  i,  j; 
if  (pfkey  !=  4  li  !flddsp[38]) 
return  FALSE: 

getcurCpath  name ,  £?fld_type,  6?row,  ©col,  rcode); 
pathlen  =  strchr(path_name ,  ';')  -  pathname  +  1; 
j  =  0; 

sprintf ( tmpnam,  "ESRPT"); 
chcklen  «  str len( tmpnam ) ; 

while  ( (  i  -  index(©path_name[ j J ,  tmpnam))  >-  0  B& 
i  +  j  +  chcklen  <«  path_len) 

{ 

if  (path_name[ i  +  j  -  1]  ==  ' . ' 

strchr( ,  path_name[i  +  j  +  chcklen])) 
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{ 

cond  =  TRUE; 
page  =  1 ; 

rmvpag( " screen ;" ,  ©page,  rcode); 
addfrm( “screen" ,  “TESTAP",  ©page,  rcode;; 
strcpyCformname,  "TESTAP"); 
pdata( path23 ,  ©frm23c,  rcode); 
f lddsp[ 23]  =  TRUE; 

if  (scrnfrm  >=  0)  f lddsp[ scrnf rm)  =  FALSE; 
scrnfrm  =  23; 

} 

j  +=  i  +  1  : 

} 

return  cond ; 

} 

ESRPT  ()  /*  form  number  38  */ 

{ 

char  rcode[5]; 
char  cpath [ 120] ; 
int  element; 
int  donel ; 
donel  «  dbcode[l]; 
while  Odonel) 

{ 

if  ( 'donel ) 

{ 

sprintf (cpath,  "%s.ESITEM",  path38); 
addelm( cpath ,  ©element,  rcode); 
if  ( memcmp( rcode ,  OVRFLW,  5)  o) 

{ 

addal ( 19) ; 
donel  =  2; 

} 

else 

{ 

spr i ntf ( cpath ,  "%s(%d)“,  cpath,  element); 
pdata(cpath,  ©frm46c,  rcode); 
donel  l-  nextdb( 1 ,  ©dbrl,  sizeof  dbrl); 
donel  i«  chkcng(); 

} 

} 

if  (dbcodetl]  *-  2)  donel  *=  nextdb(  1  ,  ©dbrl,  sizeof  dbrl); 
return  donel ; 

} 

PAGE45  ()  /*  form  number  26  */ 
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{ 

char  rcode[5]; 
char  cpath[l20]; 
ini  element; 
int  donel ; 
donel  -  dbcode[0] ; 
while  ( (donel ) 

{ 

if  ( ' donel ) 

{ 

sprintf ( cpath .  "%s . STYPE" ,  path26); 
addel  m(  cpath  .  ©element.  rood  e); 
if  ( memcmp( rcode .  OVRFLW .  5)  ==  0) 

{ 

addal (15); 
donel  *=  2; 

} 

else 

{ 

sprintf  (cpath .  *%s(%d)",  cpath,  element); 
pdata( cpath,  ©frm32c,  rcode); 
donel  i*  nextdb(0,  ©dbrO,  sizeof  dbrO); 
donel  i=  chkcng( ) ; 

} 

} 

) 

if  (dbcode[0]  «=  2)  donel  =  nextdb(0.  ©dbrO,  sizeof  dbrO); 
return  donel ; 

} 

nextdb( selno ,  string,  length) 
int  selno; 
char  string! ) ; 
int  length; 

{ 

if  ( fread( string ,  length,  1,  self i 1 [ selno]  ) ) 

{ 

if  ( string [0]  ==  GS  CH ) 

{ 

dbcodef selno]  -  2; 
switch  (selno) 

{ 

case  0  : 

{ 

) 

break ; 

case  1 
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{ 

} 

break ; 

} 

} 

else 

{ 

dbcode [ selno]  =  0; 
switch  (selno) 

{ 

case  0  : 

{ 


STRASN( f rm32p .  frm32c), 

memcpy ( f  rm32c . DBNAME ,  dbrO  DBNAME .  10): 
memcpy ( f rm32c . SETID .  dbrO.SETID.  20); 
memcpy( f rm32c . RTOWNID .  dbrO . RTOWNID .  20). 
memcpy ( frm32c . RTMEM ID.  dbrO . RTMEMID .  20); 
memcpy ( frm32c  REQOPT.  dbrO. REQOPT,  1); 

} 

break ; 
case  1  : 

{ 

STRASN ( f  r m46p .  frm46c); 

memcpy ( frm46c . ESNAME ,  dbr 1 . ESNAME ,  30); 
memcpy (frm46c.DI NAME,  dbr 1DI NAME.  30); 
memcpy ( frm46c.DI MR.  dbrl.DIMR,  1); 
memcpy ( f rm46c. DI SIZE .  dbrl  DISIZE,  4). 
memcpy (f rm46c  . DIND.  dbrl. DIND,  4). 

} 

break ; 

) 


} 

) 

else  dbcode ( se 1  no ]  =  1 
return  dbcode [ se 1  no ]  . 

} 

chkcng( ) 

{ 

int  code; 
code  -  0; 
return  code ; 

} 

addal ( trgno ) 
int  trgno; 

{ 

addptr  -  ©firstact. 
switch  (trgno) 
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case  -2:  addact(-2, 
case  0  : 

{ 

addact(0,  3); 
addact(l,  2); 

} 

break ; 
case  1 
{ 

addact( 2 ,  2 ) ; 

} 

break ; 
case  2  : 

{ 

addact(3,  2); 

} 

break ; 
case  3  : 

{ 

addact(4,  2); 

} 

break ; 
case  4  : 

{ 

addact(5,  2); 

} 

break ; 
case  5  : 

{ 

addact(6,  2); 

} 

break : 
case  6  : 

{ 

addact(7,  2); 

} 

break ; 
case  7  : 

{ 

addact(8.  2); 

} 

break ; 
case  8  : 

{ 

addact(9 ,  2  )  ; 

) 


1 ) ;  break ; 
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break ; 
case  9 

{ 

addact( 10 .  3 ) . 
addac  t ( 1 1 ,  31. 
addact ( 12 ,  2) . 
) 

break 

case  10 
{ 

addact ( 13  3  )  . 

addac  t (  1 4  Z  < 
addac  t !  1  5 

1 

break 
case  1 1 
{ 

addac  t ( 1 6 .  2 ) . 
) 

break . 
case  12 
{ 

addact ( 17 .  3 ) . 
addac  t ( 1 8 .  6 ) 

} 

break . 
case  13  : 

{ 

addact ( 19 .  01 

} 

break , 
case  14 
{ 

addact ( 20  .  1  ; 

addac t( 21  ,  2  ) 

} 

break ; 
case  15  : 

{ 

addact (22.  6). 

} 

break ; 
case  16 

< 

addact( 23 ,  21. 

} 
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break ; 
case  17  : 

{ 

addact(24,  2): 

} 

break ; 
case  18  : 

{ 

addact ( 25 ,  1  ). 
addact ( 26 .  2); 

} 

break ; 

case  19 

{ 

addact ( 27 .  6 ) . 

} 

break ; 
case  20  : 

( 

addact (28 .  2 ) ; 

) 

break : 
case  21 
< 

addact (29.  2). 

) 

break . 

) 

) 

addact ( actno .  priority) 
int  actno. 
i nt  pr i or i ty . 

{ 

ACTION  • ap ; 

for  (.  ‘addptr  Wfc#  ( * addpt r ) - * pr i or l ty 
addptr  -  W(  •  addptr  )-•  nxtarrt  )  . 
for  (.  ’addptr  W5?  (* addptr )-  pr i or l ty  - 
addptr  -  8( ‘addptr )- ■ nxtact  )  . 
ap  -  (ACTION  • )mal loc( sizeof  (ACTION)): 
ap- -actno  •  actno. 
ap-. priority  -  priority; 
ap- .nxtact  -  ‘addptr; 

‘addptr  -  ap; 
addptr  -  Wap-. nxtact, 

) 


priority; 

priority; 
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doact(actno) 
int  actno; 

{ 

switch  (actno) 

{ 

case  0  : 

{ 

memcpy ( f rmOc . NEWUSER ,  “  sizeof  f rmOc . NEWUSER ) ; 
pdata(pathO,  tffrmOc,  rcode); 

} 

break ; 

case  1 
{ 

page  =  1  ; 

rmvpag( " screen .  tfpage  ,  rcode); 

addfrm( " screen" ,  "TOPFORM".  ©page,  rcode); 

strcpy( form  name ,  “TOPFORM" ) ; 

pdata(pathO.  ©frmOc,  rcode); 

flddsp[0]  -  TRUE; 

if  (scrnfrm  >«  0)  f lddspt scrnfrm]  -  FALSE; 
scrnfrm  «  0; 

1 

break. ; 
case  22  : 

{ 

pmsglsC "Press  <enter>  to  continue,  <quit>  to 
quit."); 

} 

break ; 
case  27  : 

{ 

pmsgl s( " Press  <enter-  to  continue,  <quit<  to 
quit . "  )  ; 

} 

break ; 

) 

) 

newpagCvin,  rcode) 
char  win[J,  rcodetJ; 

{ 

char  pag s  t  r [ 4 ]  ; 
static  int  pagcnt  »  0; 
sprintfCpagstr ,  "%3d",  ++pagcnt); 
pdataC " . _pageno ; " ,  pagstr,  rcode); 

if  ( «e»cmp( rcode ,  OK,  RCODELEN)  -«  0)  out:cr(win,  rcode) 
} 
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Generated  COBOL  Code 


IDENTIFICATION  DIVISION. 
PROGRAM-ID.  TESTAP. 

AUTHOR .  SDRC . 

INSTALLATION.  SDRC. 

DATE-WRITTEN .  03/01/85. 
ENVIRONMENT  DIVISION. 
CONFIGURATION  SECTION. 
SPECIAL-NAMES . 

SYMBOLIC  GRPSEP  IS  30 
INPUT-OUTPUT  SECTION 
FILE -CONTROL 

SELECT  FCVO  ASSIGN  “FVARO" . 
DATA  DIVISION. 

FILE  SECTION. 

FD  FCVO 

ACCESS  IS  SEQUENTIAL 
VALUE  OF  ID  IS  FVARO. 

01  FRECO. 

03  FILLER  PIC  X(71). 

WORKING-STORAGE  SECTION. 

01  FVARO  PIC  X(10). 

01  PSREC-0 . 

03  DBNAME  PIC  X(10). 

03  SETID  PIC  X(20) . 

03  RTOWNID  PIC  X(20). 

03  RTMEMID  PIC  X(20). 

03  REQOPT  PIC  X(l). 

01  EDATA-BASE-O. 

02  DB-ID-0-0  PIC  9(6)  . 

02  DBMS -NAME -0-0  PIC  X(030) 
02  DB-NAME-0-0  PIC  X(030). 
02  HOST-ID-O-O  PIC  X(030). 
01  CDATA-BASE-0 . 

02  CDB-ID  PIC  - 

02  CDBMS-NAME  PIC  X(030). 

02  CDB-NAME  PIC  X(030). 

02  CHOST-ID  PIC  X( 030 ) . 

01  ERECORD-TYPE-O . 

02  DB- ID-0- 1  PIC  9(6)  . 

02  RT- ID-0- 1  PIC  X( 030  )  . 

02  RT-NO-O- 1  PIC  9(6) 
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01  CRECORD-TYPE-O . 

02  CDB-ID  PIC - . 

02  CRT- ID  PIC  X( 030  )  . 

02  CRT -NO  PIC - . 

01  ERECORD-SET-O 

02  DB- ID-0-2  PIC  9(6)  . 

02  TOTAL - NUM -MEM-0-2  PIC  9(6) 

02  RT-ID-OF -OWNER-O-2  PIC  X(030). 

02  SET-ID-0-2  PIC  X(030). 

02  SET-NO-O-2  PIC  9(6)  . 

01  CRECORD-SET-O 

02  CDB-ID  PIC  -  - 

02  CTOTAL-NUM-MEM  PIC  - 

02  CRT- ID-OF -OWNER  PIC  X(030) 

02  CSET-ID  PIC  X( 030 ) 

02  CSET-NO  PIC  - 

01  ESET-TYPE-MEMBER -0 

02  DB- ID-0-3  PIC  9(6)  . 

02  RT- ID-OF -MEMBER -0-3  PIC  X(030) 

02  DB- ID-OF -MEMBER -0-3  PIC  9(6) 

02  SET-ID-0-3  PIC  X(030) 

02  REQ-MEM- IND-0-3  PIC  X(001) 

01  CSET-TYPE-MEMBER-0 

02  CDB-ID  PIC  - 

02  CRT- ID-OF -MEMBER  PIC  X(030) 

02  CDB- ID-OF -MEMBER  PIC  - 

02  CSET-ID  PIC  X( 030  )  . 

02  CREQ-MEM- IND  PIC  X(001) 

COPY  SRVRET  OF  IISSCLIB 

01  MODULE-NAME  PIC  X(10)  VALUE  "TESTAP' 

01  MESG-DESC  PIC  X(60) 

01  RET-STATUS  PIC  X(5) 

01  REALTEMP  COMP  2 

01  RC  PIC  9999  COMP 

LINKAGE  SECTION 

01  SELECT-NUMBER  PIC  9(5!  COMP 

01  WHERE -STRUCT 

03  DUMMY  PIC  X(  1  > 

01  PFO  PIC  X(  10 ) 

PROCEDURE  DIVISION  USING 
SELECT  NUMBER 
WHERE  STRUCT 
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PFO 

START -PROGRAM . 

COMPUTE  SELECT-NUMBER  -  SELECT-NUMBER  +  1 . 

GO  TO 

SELECTO-BEG 

DEPENDING  ON  SELECT-NUMBER. 

MAPO-BEG. 

MOVE  DB-NAME-0-0  OF  EDATA-BASE-0 
TO  DBNAME  OF  PSREC-O. 

MOVE  SET-ID-0-3  OF  ESET-TYPE-MEMBER-0 
TO  SETID  OF  PSREC-O. 

MOVE  RT- ID-OF -OWNER -0-2  OF  ERECORD- SET-0 
TO  RTOWNID  OF  PSREC-O. 

MOVE  RT-ID-OF-MEMBER-O-3  OF  ESET-TYPE-MEMBER-0 
TO  RTMEMID  OF  PSREC-O. 

MOVE  REQ-MEM-IND-0-3  OF  ESET-TYPE-MEMBER-0 
TO  REQOPT  OF  PSREC-O. 

MAPO-END. 

CLOSEO-BEG. 

CLOSE  FCVO . 

CLOSEO-END. 

SELECTO-BEG . 

MOVE  PFO  TO  FVARO . 

OPEN  OUTPUT  FCVO. 

#  SELECT 

#  : DB-NAME-0-0 

♦  -  DB . DBNAME , 

#  : SET- ID-0-3 

*  -  SM.SET  ID, 

•  : RT- ID-0F-0WNER-0-2 

*  -=  RS.RTIDOFOWNER, 

*  : RT-ID-OF-MEMBER-O-3 

*  -  SM.RTIDOFMEMBER. 

♦  : REQ-MEM-IND-0-3 

#  -  SM.REQMEMIND 

t  FROM 

*  DATABASE  DB , 

*  RECORDTYPE  RT. 

♦  RECORDSET  RS , 

t  SET  TYPEMEMBER  SM 

t  WHERE 

t  DB . DB  ID 


RT . DB  ID  AND 
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*#  RT.DBID 

*#  =  RS.DB  ID  AND 

*#  RT.RTID 

*#  =  RS.RTIDOFOWNER  AND 

*#  RS.DBID 

*#  =  SM.DBID  AND 

*♦  RS.SETID 
*#  =  SM.SET  ID 

*#  { 

PERFORM  MAPO-BEG  THRU  MAPO-END. 

WRITE  FRECO  FROM  PSREC-O. 

*#  } 

IF  NOT  OK 

PERFORM  CLOSEO-BEG  THRU  CLOSEO-END 
GO  TO  NDML-ERROR 
END- IF 

PERFORM  CLOSEO-BEG  THRU  CLOSEO-END. 

EX IT- PROGRAM . 

EXIT  PROGRAM. 

*  NDML  ERROR  PROCESSING 
NDML-ERROR. 

MOVE  NDML- STATUS  TO  RET_STATUS . 

MOVE  NDML-ERROR  TRAPPED'  TO  MESG-DESC . 
PERFORM  PROCESS-ERROR. 

GO  TO  EXIT-PROGRAM. 

* 

*  PROCESS  ERROR 
COPY  ERRPRO  OF  IISSCLIB. 


*  *  % 


TOPFORM . FD 
DELFORM . FD 
INSFORM . FD 
IOPTS . FD 
MREGORDS . FD 
PAGE45.FD 
ESRPT.FD 
ESITEH.FD 


APPENDIX  C 

GENERATED  BINARY  FORM  FILES 


TOPHELP . FD 
DRECORDS . FD 
I RECORDS .FD 
MODFORM . FD 
TESTAP . FD 
STYPE . FD 
ES.FD 
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Thia  as.ampla  illuatratas  thr  functionality  of  t  ha  Rapid  Application 
Qanar  at  or .  Only  quary  capability  la  available  in  thia  ralaaaa. 

.  Hit  pf4  to  raturn  to  tha  top  laval  form 

.  Hit  pfS  to  display  a  DELETE  form 

.  Hit  p  #6  to  display  an  J  MlJt  h  I  form 

•  Hit  pf7  to  display  a  MODIFY  forn 

*  Hit  pfQ  to  di aplay  a  OMFRY  form 


Hit  <  an  tat')  to  return  fo  thn  (  !«•  el  form. 


ap pleat  i cxi 


Figure  D-2  Help  Form 
Obtained  by  Answering  Y  in  Top  Level  Form 


-2 
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Figure  D-3  Delete  Form 

Obtained  by  Selection  of  Delete  Key  on  Top  Level  Form 


D-  3 
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Modify  Rtcord  For-* 


Application  law  at  or 


Aoceraa  To  Bo  HmHIM 


»*3-  Q] 


Figure  D-5  Modify  For* 

Obtained  by  Selection  of  Modify  Key  on  Top  Level  For* 
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l*l«ct  heart  Fora 

hfi‘C<tiar  bmnoft  cr 

Mst»or 

*• 

r~ 

fcn  t  mr  mr  y  no'  - l  i  +r'+  t  r.#r  «<  1 1'  !  c  me  ,  ec  ♦  *  »■  npo'  » 

«•#.  C 

met-  t  •  *  -  car 

* 

Figure  D-6  Select  Form 

Obtained  by  Selection  of  Query  Key  on  Top  bevel  Form 


L>  6 


UTP620 144502 
1  November  1985 


Figure  D-7 

Result  of  Entry  of  T  in  Verify  Item  of  Delete  Form 
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Figure  D-9 

Result  of  Entry  of  Y  In  Options  Item  of  Insert  Form 
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